## Carregando pacotes exigidos: pacman
## Carregando pacotes exigidos: remotes
## Using GitHub PAT from the git credential store.
## Skipping install of 'statgsa' from a github remote, the SHA1 (79775ab9) has not changed since last install.
##   Use `force = TRUE` to force installation
## `summarise()` has grouped output by 'tratamentos'. You can override using the
## `.groups` argument.
## Scale for y is already present. Adding another scale for y, which will replace
## the existing scale.
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Carregando base

library(readxl)
library(dplyr)

# Lista de arquivos
arquivos <- c(
  'Relatorio - Dor - Janeiro - Helena.xlsx',
  'Relatorio - Dor - Fevereiro - Helena.xlsx',
  'Relatorio - Dor - Março - Helena.xlsx',
  'Relatorio - Dor - Abril - Helena.xlsx',
  'Relatorio - Dor - Maio - Helena.xlsx',
  'Relatorio - Dor - Junho - Helena.xlsx',
  'Relatorio - Dor - Julho - Helena.xlsx'
)

# Caminho da pasta onde os arquivos estão armazenados
pasta <- "C:/Users/gabri/OneDrive/Documentos/Freelances/Acompanhamento dor/"

# Função para extrair o mês do nome do arquivo
extrair_mes <- function(nome_arquivo) {
  sub(".*Dor - (.*) - Helena.xlsx", "\\1", nome_arquivo)
}

# Carregando e concatenando os arquivos com a coluna de mês
df_final <- lapply(arquivos, function(arquivo) {
  # Extrair o mês
  mes <- extrair_mes(arquivo)
  
  # Ler o arquivo Excel
  df <- read_excel(paste0(pasta, arquivo))
  
  # Adicionar a coluna do mês
  df <- mutate(df, Mes = mes)
  
  return(df)
}) %>% bind_rows()
## New names:
## New names:
## New names:
## New names:
## New names:
## New names:
## New names:
## • `` -> `...10`
# Exibindo o DataFrame final
df = df_final
df
## # A tibble: 15,316 × 12
##    index_aval index_reaval setor                     atendimento `nota da dor`
##         <dbl>        <dbl> <chr>                           <dbl>         <dbl>
##  1         11           12 6º Andar UTI Adulto Ala A    36948993             8
##  2         23           55 6º Andar UTI Adulto Ala A    36948993             8
##  3         31           90 5º Andar  Ala B UI           36950843             7
##  4         54          118 6º Andar  Ala B UI           36906255             8
##  5         55           83 6º Andar UTI Adulto Ala A    36948993            10
##  6         56           58 5º Andar  Ala B UI           36951392             7
##  7         67           93 5º Andar  Ala B UI           36948374             4
##  8         83          116 6º Andar UTI Adulto Ala A    36948993            10
##  9         92          134 5º Andar  Ala B UI           36951476             9
## 10         95          113 6º Andar  Ala B UI           36939223             8
## # ℹ 15,306 more rows
## # ℹ 7 more variables: `nota da dor na reavaliação` <dbl>,
## #   `tempo até a reavaliação` <dttm>, `Reavaliacão em até 1 hora` <lgl>,
## #   `Reavaliação com diminuicao do score de dor em até 3 pontos` <lgl>,
## #   ...10 <lgl>, `4.1666666666666664E-2` <lgl>, Mes <chr>

Renomeando colunas

# Função para normalizar os nomes das colunas
library(stringr)
normalize_column_names <- function(df) {
  # Remover acentuação
  colnames(df) <- iconv(colnames(df), from = "UTF-8", to = "ASCII//TRANSLIT")
  
  # Converter para minúsculas
  colnames(df) <- tolower(colnames(df))
  
  # Substituir espaços por underscores
  colnames(df) <- str_replace_all(colnames(df), " ", "_")
  
  # Remover caracteres especiais, mantendo apenas letras, números e underscores
  colnames(df) <- gsub("[^a-z0-9_]", "", colnames(df))
  
  # Substituir múltiplos underscores consecutivos por um único underscore
  colnames(df) <- gsub("_+", "_", colnames(df))
  
  # Remover underscores no início ou fim dos nomes de colunas
  colnames(df) <- gsub("^_|_$", "", colnames(df))
  
  return(df)
}

df = normalize_column_names(df)
df_bckp = df
df_bckp$mes = factor(df_bckp$mes, levels = c('Janeiro', 'Fevereiro', 'Março', 
                                             'Abril', 'Maio', 'Junho', 'Julho'))
df
## # A tibble: 15,316 × 12
##    index_aval index_reaval setor  atendimento nota_da_dor nota_da_dor_na_reava…¹
##         <dbl>        <dbl> <chr>        <dbl>       <dbl>                  <dbl>
##  1         11           12 6º An…    36948993           8                      0
##  2         23           55 6º An…    36948993           8                     10
##  3         31           90 5º An…    36950843           7                      0
##  4         54          118 6º An…    36906255           8                      8
##  5         55           83 6º An…    36948993          10                     10
##  6         56           58 5º An…    36951392           7                      0
##  7         67           93 5º An…    36948374           4                      0
##  8         83          116 6º An…    36948993          10                      8
##  9         92          134 5º An…    36951476           9                      0
## 10         95          113 6º An…    36939223           8                      2
## # ℹ 15,306 more rows
## # ℹ abbreviated name: ¹​nota_da_dor_na_reavaliacao
## # ℹ 6 more variables: tempo_ate_a_reavaliacao <dttm>,
## #   reavaliacao_em_ate_1_hora <lgl>,
## #   reavaliacao_com_diminuicao_do_score_de_dor_em_ate_3_pontos <lgl>,
## #   `10` <lgl>, `41666666666666664e2` <lgl>, mes <chr>

Preparando os dados para gerar os boxplots pareados, voltando os dados ao formato longituginal

# Transformando para o formato longo
df$ID = 1:nrow(df)
dados_long = pivot_longer(df, cols = starts_with('nota_da_dor'),
                          names_to = "momentos", values_to = "medida_numerica")
dados_long$mes = factor(dados_long$mes, levels = c('Janeiro', 'Fevereiro', 'Março', 
                                                   'Abril', 'Maio', 'Junho', 'Julho'))
dados_long_bckp = dados_long
dados_long
## # A tibble: 30,632 × 13
##    index_aval index_reaval setor              atendimento tempo_ate_a_reavalia…¹
##         <dbl>        <dbl> <chr>                    <dbl> <dttm>                
##  1         11           12 6º Andar UTI Adul…    36948993 1899-12-31 00:40:00   
##  2         11           12 6º Andar UTI Adul…    36948993 1899-12-31 00:40:00   
##  3         23           55 6º Andar UTI Adul…    36948993 1899-12-31 01:00:00   
##  4         23           55 6º Andar UTI Adul…    36948993 1899-12-31 01:00:00   
##  5         31           90 5º Andar  Ala B UI    36950843 1899-12-31 02:09:00   
##  6         31           90 5º Andar  Ala B UI    36950843 1899-12-31 02:09:00   
##  7         54          118 6º Andar  Ala B UI    36906255 1899-12-31 03:00:00   
##  8         54          118 6º Andar  Ala B UI    36906255 1899-12-31 03:00:00   
##  9         55           83 6º Andar UTI Adul…    36948993 1899-12-31 01:00:00   
## 10         55           83 6º Andar UTI Adul…    36948993 1899-12-31 01:00:00   
## # ℹ 30,622 more rows
## # ℹ abbreviated name: ¹​tempo_ate_a_reavaliacao
## # ℹ 8 more variables: reavaliacao_em_ate_1_hora <lgl>,
## #   reavaliacao_com_diminuicao_do_score_de_dor_em_ate_3_pontos <lgl>,
## #   `10` <lgl>, `41666666666666664e2` <lgl>, mes <fct>, ID <int>,
## #   momentos <chr>, medida_numerica <dbl>

Gerando Grafico Geral

graficos_notas = ggplot() +
  geom_boxplot(data=dados_long, aes(x=as.factor(momentos), y=medida_numerica, color=as.factor(momentos)),
               alpha=0.5, fill = 'white', show.legend = F) +
  geom_point(data=dados_long, aes(x=as.factor(momentos), y=medida_numerica, color=as.factor(momentos)),
             alpha=0.5, size=2.5, show.legend = F) +
  geom_line(data=dados_long, aes(x=as.factor(momentos), y=medida_numerica, color='grey', group = ID), color='grey',
            alpha=0.1, show.legend = F) +
  labs(x=NULL, y='Notas da Dor (n)', title=NULL) +
  scale_x_discrete(labels=c('Avaliação','Reavaliação')) +
  theme(legend.position = "none") + theme_bw() +
  facet_grid(~mes)
graficos_notas

#ggsave("Graficos/Boxplot_pareado_por_mes.png", height=15, width=35, units="cm", dpi= 600)
############################################################################

coluna1 = 'reavaliacao_com_diminuicao_do_score_de_dor_em_ate_3_pontos'
grafi1 = df %>% 
  group_by(mes, !!sym(coluna1)) %>% 
  summarise(n = n()) %>% 
  mutate(frequencia = round(n/sum(n)*100, 2)) %>%
  ungroup() %>%
  filter(!!sym(coluna1) == TRUE) %>%
  mutate(coluna = coluna1)
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
coluna2 = 'reavaliacao_em_ate_1_hora'
grafi2 = df %>% 
  group_by(mes, !!sym(coluna2)) %>% 
  summarise(n = n()) %>% 
  mutate(frequencia = round(n/sum(n)*100, 2)) %>%
  ungroup() %>%
  filter(!!sym(coluna2) == TRUE) %>%
  mutate(coluna = coluna2)
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
combined_grafi = bind_rows(grafi1, grafi2)
combined_grafi$texto = paste0(round(combined_grafi$n, 0), ' (', round(combined_grafi$frequencia, 1), '%)')
combined_grafi$mes = factor(combined_grafi$mes, levels = c('Janeiro', 'Fevereiro', 'Março', 
                                                   'Abril', 'Maio', 'Junho', 'Julho'))

graficos_med = ggplot(combined_grafi, 
                      aes(x=as.factor(coluna), y=frequencia, label=frequencia, fill=as.factor(coluna))) +
  geom_col(color="black") +
  geom_text(aes(y=frequencia, label = texto, vjust=-0.5)) +
  theme_bw() + theme(legend.position = "bottom") + theme(
    axis.text.x = element_blank(), # Remove os textos do eixo x
    axis.ticks.x = element_blank()  # Remove os ticks do eixo x
  ) +
  scale_y_continuous(limits = c(0, 100), breaks=seq(from = 0, to = 100, by = 20)) +
  scale_fill_manual(values = c('#00bbf9','#00f5d4'),
                    labels = c('Reavaliação com Diminuição do Score em até 3 pontos', 'Reavaliação em até 1H')) +
  labs(x=NULL, y="Frequency (%)", title =NULL, fill=NULL) +
  facet_grid(~mes) 
graficos_med

#ggsave("Graficos/Contagem_por_mes.png", height=15, width=35, units="cm", dpi= 600)

# Combinar os gráficos com um título geral
combined_plot <- graficos_notas / graficos_med + 
  plot_annotation(title = "Geral", 
                  theme = theme(plot.title = element_text(hjust = 0.5)))
print(combined_plot)

ggsave("Graficos/Geral.png", height=25, width=35, units="cm", dpi= 600)

Gerando Grafico para cada setor

for (i in dados_long_bckp$setor %>% as.factor() %>% levels()){
  print(i)
  df = df_bckp %>% filter(setor == i)
  dados_long = dados_long_bckp %>% filter(setor == i)

  graficos_notas = ggplot() +
    geom_boxplot(data=dados_long, aes(x=as.factor(momentos), y=medida_numerica, color=as.factor(momentos)),
                 alpha=0.5, fill = 'white', show.legend = F) +
    geom_point(data=dados_long, aes(x=as.factor(momentos), y=medida_numerica, color=as.factor(momentos)),
               alpha=0.5, size=2.5, show.legend = F) +
    geom_line(data=dados_long, aes(x=as.factor(momentos), y=medida_numerica, color='grey', group = ID), color='grey',
              alpha=0.1, show.legend = F) +
    labs(x=NULL, y='Notas da Dor (n)', title=NULL) +
    scale_x_discrete(labels=c('Avaliação','Reavaliação')) +
    theme(legend.position = "none") + theme_bw() +
    facet_grid(~mes)
  #graficos_notas
  #ggsave("Graficos/Boxplot_pareado_por_mes.png", height=15, width=35, units="cm", dpi= 600)
  ############################################################################
  
  coluna1 = 'reavaliacao_com_diminuicao_do_score_de_dor_em_ate_3_pontos'
  grafi1 = df %>% 
    group_by(mes, !!sym(coluna1)) %>% 
    summarise(n = n()) %>% 
    mutate(frequencia = round(n/sum(n)*100, 2)) %>%
    ungroup() %>%
    filter(!!sym(coluna1) == TRUE) %>%
    mutate(coluna = coluna1)
  
  coluna2 = 'reavaliacao_em_ate_1_hora'
  grafi2 = df %>% 
    group_by(mes, !!sym(coluna2)) %>% 
    summarise(n = n()) %>% 
    mutate(frequencia = round(n/sum(n)*100, 2)) %>%
    ungroup() %>%
    filter(!!sym(coluna2) == TRUE) %>%
    mutate(coluna = coluna2)
  
  combined_grafi = bind_rows(grafi1, grafi2)
  combined_grafi$texto = paste0(round(combined_grafi$n, 0), ' (', round(combined_grafi$frequencia, 1), '%)')
  combined_grafi
  
  graficos_med = ggplot(combined_grafi, 
                        aes(x=as.factor(coluna), y=frequencia, label=frequencia, fill=as.factor(coluna))) +
    geom_col(color="black") +
    geom_text(aes(y=frequencia, label = texto, vjust=-0.5)) +
    theme_bw() + theme(legend.position = "bottom") + theme(
      axis.text.x = element_blank(), # Remove os textos do eixo x
      axis.ticks.x = element_blank()  # Remove os ticks do eixo x
    ) +
    scale_y_continuous(limits = c(0, 100), breaks=seq(from = 0, to = 100, by = 20)) +
    scale_fill_manual(values = c('#00bbf9','#00f5d4'),
                      labels = c('Reavaliação com Diminuição do Score em até 3 pontos', 'Reavaliação em até 1H')) +
    labs(x=NULL, y="Frequency (%)", title =NULL, fill=NULL) +
    facet_grid(~mes) 
  #graficos_med
  #ggsave("Graficos/Contagem_por_mes.png", height=15, width=35, units="cm", dpi= 600)
  
  # Combinar os gráficos com um título geral
  combined_plot <- graficos_notas / graficos_med + 
    plot_annotation(title = i, 
                    theme = theme(plot.title = element_text(hjust = 0.5)))
  print(combined_plot)
  ggsave(paste0("Graficos/",i,".png"), plot = combined_plot, height=25, width=35, units="cm", dpi= 600)
}
## [1] "1º andar Endoscopia"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## [1] "1º Andar UI Adulto"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "1º Andar UI Infantil"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "1º Andar UTI Adulto"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "1º Andar UTI Infantil"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "2º Andar Hospital UI"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "2º Andar UTI Adulto"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "4° andar UI Hospital"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "4º A UTI Ped B"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "4º Andar UTI Adulto"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "4º Andar UTI Ped A"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "5º Andar  Ala B UI"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "5º Andar Ala A UI"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "6º Andar  Ala B UI"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "6º andar UICB"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "6º Andar UTI Adulto Ala A"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "6º Andar UTI Adulto Ala B"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "6º Andar UTI Cardiológica"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Aguardando Vaga  P.S. (MRB)"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Aguardando Vaga  P.S. Infantil"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Ala Pré e Pós Operatório 4º andar"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Ambulatório (MR)"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Centro Cirúrgico"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Centro Cirurgico- RPA"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Centro Cirúrgico - Ala Pré e Pós Operatório 4º andar"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Centro Cirúrgico (MR)"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Endoscopia Digestiva e Respiratória (MR)"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Fisioterapia (MR)"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Fonoaudiologia (MR)"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Laboratório de Anatomia - Morumbi"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Pronto Socorro Adulto- 1º Andar UI"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Pronto Socorro Adulto - 1º Andar UTI"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Pronto Socorro Adulto - Aguardando Vaga (MRB)"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Pronto Socorro Adulto (MR)"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Pronto Socorro Infantil- 1º Andar UTI"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Pronto Socorro Infantil - Aguardando Vaga"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Pronto Socorro Infantil (MR)"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "Repouso Pronto Socorro - Adulto"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "RPA Centro Cirurgico"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "SADT- 1º andar Endoscopia"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "SADT- Endoscopia Digestiva e Respiratória (MR)"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "SADT- Laboratório de Anatomia - Morumbi"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "SADT Análises Clínicas (MR)"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "SADT Cardiologia (MR)"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "SADT Raio-X e Arco Cirúrgico  (MR)"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "SADT Ressonancia (MR)"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "SADT Tomografia (MR)"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "SADT Ultrassonografia Geral (MR)"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "UI- 2º Andar Hospital"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "UI- 5º Andar  Ala B"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "UI- 5º Andar Ala A"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "UI- 6º Andar  Ala B"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "UI- Fisioterapia (MR)"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "UTI Adult- 4º Andar"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "UTI Adulto Ala A- 6º Andar"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "UTI Adulto Ala B- 6º Andar"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "UTI Cardiológica- 6º Andar"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "UTI Ped A- 4º Andar"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.

## [1] "UTI Ped B- 4º A"
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.
## `summarise()` has grouped output by 'mes'. You can override using the `.groups`
## argument.